home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Neurons / Flip-Flop Neurons next >
Encoding:
Text File  |  1998-10-26  |  1.0 KB  |  44 lines  |  [TEXT/ScoM]
  1. ; Simple Neural Oscillators
  2. ; Flip-flop
  3.  
  4. ; This forms the most elementary neural oscillator. If the input
  5. ; is 'a then 'b is formed, and if the input is 'b then 'a is
  6. ; formed.
  7.  
  8. (def-neuron flip-flop
  9.   (in 1 'a) 'b
  10.   (in 1 'b) 'a
  11. )
  12.  
  13. ; (feedback-neuron 'flip-flop 5 '((a b)))
  14. ; --> ((b a) (a b) (b a) (a b) (b a))
  15.  
  16. ; To extend this to cope with other symbols use otherwise to
  17. ; return a randon 'a or 'b. Note that the picking is made
  18. ; only the first time other than 'a and 'b is found, and 
  19. ; the subsequent oscillations will change this symbol, since
  20. ; it is in the range of the rules.
  21.  
  22. (def-neuron flip-flop
  23.   (in 1 'a) 'b
  24.   (in 1 'b) 'a
  25.   (otherwise (pick-random '(a b)))
  26. )
  27.  
  28. ;  (feedback-neuron 'flip-flop 5 '((a b c)))
  29. ; --> ((b a a) (a b b) (b a a) (a b b) (b a a))
  30.  
  31. ; To make a random symbol appear use different symbol than the
  32. ; rules can recognise, for example:
  33.  
  34. (def-neuron flip-flop
  35.   (in 1 'a) 'b
  36.   (in 1 'b) 'a
  37.   (otherwise (pick-random '(c d)))
  38. )
  39.  
  40. (feedback-neuron 'flip-flop 5 '((a b c)))
  41. --> ((b a c) (a b c) (b a d) (a b c) (b a c))
  42.  
  43.  
  44.